long cread(long *xp){
	return (xp?*xp:0);
}
